home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
prog_d
/
mdboutln.zip
/
AEEMP.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-11-12
|
1KB
|
53 lines
unit Aeemp;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
StdCtrls, Forms, DBCtrls, DB, DBTables, Mask, ExtCtrls, Buttons, Dialogs;
type
TfrmAEEmployee = class(TForm)
bxscrlAEEmployee: TScrollBox;
lblEmpNo: TLabel;
lblLastName: TLabel;
bxeddbLastName: TDBEdit;
lblFirstName: TLabel;
bxeddbFirstName: TDBEdit;
lblPhoneExt: TLabel;
bxeddbPhoneExt: TDBEdit;
lblHireDate: TLabel;
bxeddbHireDate: TDBEdit;
lblSalary: TLabel;
bxeddbSalary: TDBEdit;
lblSupervisor: TLabel;
bxeddbSupervisor: TDBEdit;
dtasrcAEEmployee: TDataSource;
pnlAEEmployee: TPanel;
btnbitOK: TBitBtn;
btnbitCancel: TBitBtn;
bxeddbEmpNo: TDBEdit;
procedure FormActivate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
frmAEEmployee: TfrmAEEmployee;
implementation
uses Main;
{$R *.DFM}
procedure TfrmAEEmployee.FormActivate(Sender: TObject);
begin
dtasrcAEEmployee.DataSet := frmMainForm.tblEmployees;
bxeddbLastName.SetFocus;
end;
end.